(info-lookup): Bind Info-fontify-maximum-menu-size to nil to speed up lookup

of the symbol in index nodes.

diff --git a/lisp/info-look.el b/lisp/info-look.el
index 828fd3e61189a63e734b1b4e9683e5d1a0bcf2f0..a4280e97c9907bb70209697ded9df165b00d70dd 100644 (file)
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -353,8 +353,11 @@ If optional argument QUERY is non-nil, query for the help mode."
              suffix (nth 3 (car doc-spec)))
        (when (condition-case error-data
                  (progn
-                   (Info-goto-node node)
-                   (setq doc-found t))
+                   ;; Don't need Index menu fontifications here, and
+                   ;; they slow down the lookup.
+                   (let (Info-fontify-maximum-menu-size)
+                     (Info-goto-node node)
+                     (setq doc-found t)))
                (error
                 (message "Cannot access Info node %s" node)
                 (sit-for 1)